(read-input-method-name): Locally

bind enable-recursive-minibuffers to t.

diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index efedd889f02cd372ce0d5ac8de8a52a27bb6c80b..8f011b49008c319a1fe19b5531805579973953f0 100644 (file)
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1023,6 +1023,10 @@ The return value is a string."
   (if default
       (setq prompt (format prompt default)))
   (let* ((completion-ignore-case t)
+        ;; As it is quite normal to change input method in the
+        ;; minibuffer, we must enable it even if
+        ;; enable-recursive-minibuffers is currently nil.
+        (enable-recursive-minibuffers t)
         ;; This binding is necessary because input-method-history is
         ;; buffer local.
         (input-method (completing-read prompt input-method-alist